#'
#' remove individuals from a population or a community
#'
#' @aliases remove.population remove.community
#' 
#' @usage
#' remove_individuals(pop, i)
#' remove_individuals(com, i)
#'
#' @param pop a population object
#' @param com a community object
#' @param i a integer index to indicate which individuals should be removed from the population or community
#' 
#' @examples
#' set.seed(1)
#' 
#' pop=rpopulation()
#' remove_individuals(pop,c(3,6))
#' 
#' com=rcommunity()
#' remove_individuals(com,1:4)
#' 
#' 
#' 
#' @export
remove_individuals=function(x,i){
  UseMethod("remove_individuals")
}

remove_individuals.population=function(pop,i){
  return(pop[-i,])
}

remove_individuals.community=function(com,i){
  return(com[-i,])
}